リスト：SPTEST

プチコン　プログラムリスト

タイトル：SPTEST
スプライトを100個表示
十字キーで移動できる。
移動すると分身が99人ついてきます。
横一列に多数並ぶとスプライトが消えます。
これはハード（プチコン）の仕様によるものです。

http://www43.tok2.com/home/ogut/index.html
リスト作成に上記サイトの「PTC2HTML」を利用させていただいています。

01. ＡＣＬＳ
02. ＣＬＥＡＲ
03. ＶＩＳＩＢＬＥ　１，１，０，０，１，０
04. ＣＬＳ：ＣＯＬＯＲ　０
05. 
06. ′スフ゜ライトシ゛ュンヒ゛
07. ′０：シ゛キ
08. ＤＩＭ　ＳＰＫ（１００），ＳＰＰ（１００），ＳＰＨ（１００），ＳＰＶ（１００），ＳＰＩ（１００）
09. ＤＩＭ　ＳＰＦ（１００），ＳＰＸ（１００），ＳＰＹ（１００）
10. ＦＯＲ　Ｉ＝０　ＴＯ　９９
11. 　　ＳＰＫ（Ｉ）＝９６
12. 　　ＳＰＰ（Ｉ）＝０
13. 　　ＳＰＨ（Ｉ）＝０
14. 　　ＳＰＶ（Ｉ）＝０
15. 　　ＳＰＩ（Ｉ）＝１
16. 　　ＳＰＦ（Ｉ）＝１　　′０：スキッフ゜　１：シンキ　２：イト゛ウ　３：ヘンコウ　９：シュウキョ
17. 　　ＳＰＸ（Ｉ）＝１００
18. 　　ＳＰＹ（Ｉ）＝１００
19. ＮＥＸＴ　Ｉ
20. ＳＰＰ（０）＝２
21. ＧＯＳＵＢ　＠ＳＰＷＲＩＴＥ
22. 
23. ＠ＭＬＯＯＰ
24. ′ニュウリョク
25. ＸＸ＝０：ＹＹ＝０
26. ＢＴＮ＝ＢＵＴＴＯＮ（）
27. ＩＦ　ＢＴＮ　ＡＮＤ　６４　ＧＯＴＯ　＠ＥＸＩＴ　′Ｘホ゛タン
28. ＩＦ　ＢＴＮ　ＡＮＤ　　１　ＴＨＥＮ　ＹＹ＝－１６　′ウエ
29. ＩＦ　ＢＴＮ　ＡＮＤ　　２　ＴＨＥＮ　ＹＹ＝１６　　′シタ
30. ＩＦ　ＢＴＮ　ＡＮＤ　　４　ＴＨＥＮ　ＸＸ＝－１６　′ヒタ゛リ
31. ＩＦ　ＢＴＮ　ＡＮＤ　　８　ＴＨＥＮ　ＸＸ＝１６　　′ミキ゛
32. ＩＦ　ＸＸ！＝０　ＯＲ　ＹＹ！＝０　ＴＨＥＮ　ＧＯＳＵＢ　＠ＭＹＭＯＶＥ
33. 
34. ＷＡＩＴ　１
35. ＧＯＳＵＢ　＠ＳＰＷＲＩＴＥ
36. ＧＯＴＯ　＠ＭＬＯＯＰ
37. 
38. ＠ＥＸＩＴ
39. ＡＣＬＳ
40. ＰＲＩＮＴ”シュウリョウ
41. ＥＮＤ
42. 
43. ＠ＭＹＭＯＶＥ
44. ′フ゛ンシンノイト゛ウ
45. ＦＯＲ　Ｋ＝９９　ＴＯ　１　ＳＴＥＰ　－１
46. 　　ＳＰＸ（Ｋ）＝ＳＰＸ（Ｋ－１）
47. 　　ＳＰＹ（Ｋ）＝ＳＰＹ（Ｋ－１）
48. 　　ＳＰＦ（Ｋ）＝２
49. ＮＥＸＴ　Ｋ
50. ′シ゛キノイト゛ウ
51. ＳＰＸ（０）＝ＳＰＸ（０）＋ＸＸ
52. ＩＦ　ＳＰＸ（０）＜０　ＴＨＥＮ　ＳＰＸ（０）＝０
53. ＩＦ　ＳＰＸ（０）＞２３９　ＴＨＥＮ　ＳＰＸ（０）＝２３９
54. ＳＰＹ（０）＝ＳＰＹ（０）＋ＹＹ
55. ＩＦ　ＳＰＹ（０）＜０　ＴＨＥＮ　ＳＰＹ（０）＝０
56. ＩＦ　ＳＰＹ（０）＞１７６　ＴＨＥＮ　ＳＰＹ（０）＝１７６
57. ＳＰＦ（０）＝２
58. ′ＧＯＳＵＢ　＠ＳＰＷＲＩＴＥ
59. ＲＥＴＵＲＮ
60. 
61. ′－－－スフ゜ライトカキカエ
62. ＠ＳＰＷＲＩＴＥ
63. ＦＯＲ　Ｊ＝０　ＴＯ　９９
64. 　　ＳＮ＝Ｊ
65. 　　ＯＮ　ＳＰＦ（Ｊ）　ＧＯＳＵＢ　＠ＳＫＩＰ，＠ＳＰＮＥＷ，＠ＳＰＭＯＶＥ
66. ＮＥＸＴ　Ｊ
67. ＲＥＴＵＲＮ
68. 
69. ＠ＳＫＩＰ　　′ナニモシナイ
70. ＲＥＴＵＲＮ
71. 
72. ＠ＳＰＮＥＷ
73. ＳＰＳＥＴ　ＳＮ，ＳＰＫ（ＳＮ），ＳＰＰ（ＳＮ），ＳＰＨ（ＳＮ），ＳＰＶ（ＳＮ），ＳＰＩ（ＳＮ）
74. ＳＰＦ（ＳＮ）＝０
75. ＧＯＳＵＢ　＠ＳＰＭＯＶＥ
76. ＲＥＴＵＲＮ
77. 
78. ＠ＳＰＭＯＶＥ
79. ＳＰＯＦＳ　ＳＮ，ＳＰＸ（ＳＮ），ＳＰＹ（ＳＮ）
80. ＳＰＦ（ＳＮ）＝０
81. ＲＥＴＵＲＮ
82. 
83. ＠ＳＰＣＨＡＮＧ　　′ミシ゛ッソウ
84. ＳＰＦ（ＳＮ）＝０
85. ＲＥＴＵＲＮ
86. 
87. ＠ＳＰＤＥＬ　　　　′ミシ゛ッソウ
88. ＳＰＦ（ＳＮ）＝０
89. ＲＥＴＵＲＮ
90. 
91.